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ABSTRACT: 


THIS MODULE CONTAINS THE TABLES AND ROUTINES wh yey TO 
PERFORM ALL DEVICE-DEPENDENT PROCESSING OF AN I/0 REQUEST 
FOR RX211/RX02 AND RX411/RX04 DISK TYPES ON A VAX/VMS SYSTEM. 
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BRW FUNCXT 
L3: 

~ENDM 
: ? LOCAL SYMBOLS 
RY_NUM_REGS = 
RY_SSSB =494 
RY_SSDD =98 
RY_DSDD =1989 
RY_SWPS =64 
RY_SECTORS = § 
EU = 
RY_RXO1SW =2 
RY_DPP =1 
3; Symbols added for RX04 support. 
RY_SSQD 21976 
RY_DWPS =3¢8 
RY_QWPS =256 
RY_DENSITY_SINGLE=0 
RY_DENSITY_DOUBLE=1 
RY_DENSITY_QUAD =2 


; UCB OFFSETS WHICH FOLLOW THE STANDARD 
SDEFINI UCB 
=UCBSK_LCL_DISK -peeern 


SDEF UCBSW_DY_WPS -BLKW 1 
SDEF UCBSW_DY_CS -BLKW 1 
SDEF UCBSW_DY_DB -BLKW 1 
SDEF UCBSW_DY_DPN -BLK 1 
SDEF UCBSL_DY_DPR BLKL 1 
SDEF CBSL_DY_FMP BLKL 1 
SDEF UCBSL_DY_PMP -BLKL 1 
SDEF CBSB_DY_ER -BLK 1 
-BLKB 1 
SDEF UCB$B_DY_LCT -BLK 1 
SDEF CBSB_DY_XBA -BLKB 1 
SDEF UCBSW_DY_ PwC -BLK 1 
SDEF UCBSW_DY_ SBA -BLK 1 
SDEF UCBSL-DY-XFER .BL 1 
SDEF UCBSL_DY"LMEDIA .BLKL_ 1 
SDEF UCBSQ"DY SEXTENDED, STATUS, 
RY_EXTENDED_STATUS_LENGTH 
SDEF UCB$Q_DY_SVAPTE TMP ' 
SDEF 


UCBSL_DY_MAPREGTAP 
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zAND EXIT 

RETURN FOR DEVICE ONLINE 


R 
RXO1 SW ERROR 
PURGE ERROR 


3S sided,q density maxblocks (26*76) 
;Double density Words/sector. 

Quad density WORDS/SECTOR. 

Value to insert in RY_CS register. 


UCB FIELDS 
START OF UCB DEFINITIONS 
sBEGIN ally bd say AT END OF UCB 


sWords per 
CONT RO STATUS REGISTER 
DATA BUFFER REGISTER 


G 
DA ATA PATH 
:DATAPATH REGIST 
sFINAL MA ae i 
PREV VIOUS MA P RE 
: SPECIAL ERROR R 
;Reserved. 
LOOP COUNTER 
Bus ADDRESS wo nae BITS 
sPARTIAL WORD petal 
SAV ED ge ADDRESS 
: TRANSFER UNCTION eee BITS 
;LOGI a MEDIA ADDRES 
Area into which we do READ ERROR 
F REGISTER command. 


= .-UCBSQ_DY_EXTENDED_STATUS 


: Aros in which “ save UCB fields - 
: SVAPTE, BOFF, 

: Area in which ay save CRB fields - 
3; MAPREG, NUMREG, and DATAPATH 
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| 
| 
| 
' 4 43 SDEF UCBSL_DY_SAVECS .BLKL 1 ; Area in which we save CS and DB regs. | 
00000108 44 UCBSK_DY_LEN=. ;LENGTH OF UCB 
1 46 SOEFEND UCB ZEND OF UCB DEFINITONS | 
4 
a3 | + RX211/RKO2 REGISTER OFFSETS FROM CSR ADDRESS | 
- SDEFINI RY : START OF REGISTER DEFINITIONS 
: SDEF -BLKW 1 :CONTROL STATUS REGISTER (CSR) 
, RYTELD RY .CS,0 ,0,<= [START OF CSR BIT DEFINITIONS 
56 <Fcébe, ss, - : FUNCTION CODE 
5 <US, ,M> 3; UNIT S 
38 <DONE. A>, - : DONE = FUNCTION COMPLETE 
5 <IE, .4>,° : INTERRUPT ENABLE 
60 <TR, .M>.- + TRANSFER REQUEST 
61 mt Se-tl 3; Dens ty 
6¢ + RESERVED BIT 
6 Shxos, ,M>,- : DEVICE TYPE 
64 <XBA, 2> + BUS ADDRESS EXTENSION BITS 
65 <INIf, A, - : INIT IA LIZE 
66 <ERR, .M>= + ERROR 
67 > SEND CSR BIT DEFINITIONS 
9 SDEF §RY_DB .BLKW 1 DATA BUFFER REGISTER (DBR) 
0 _VIELD RY_DB,0,<- [START OF DBR BIT DEFINITIONS 
71 <CRC,,M>,=- : CRC ERROR 
7 eek 3; Quad dens 
7 <ID, : INITIALIZE DONE 
7% <ACLON RD, - + AC PWR F 
75 <DE, ,M>,- > DENSITY ERROR 
7 <DDEN, ,M>,- + DRIVE DENSITY 
7 <DELD, .M>,- : DELETED DAT 
7 <DRDY,.M>.- : DRIVE READY 
>,- ; UNIT SELECT 
o : RXO4 bit 
+ WORD COUNT OVERFLOW 
F NON=EXISTENT MEMORY 
: RESERVED BITS 
> [END DBR BIT DEFINITIONS 


== 
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| 
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END RX211/RX02,RX03 REGISTER DEFINITIONS 
| 
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; DRIVER PROLOGUE TABLE 


3 THE DPT DESCRIBES DRIVER PARAMETERS AND I/O DATABASE FIELDS 
3 THAT ARE TO BE INITIALIZED DURING DRIVER LOADING AND RELOADING 


DPTAB. = 3D per CREATION MACRO 
END=DY_END,- SEND OF DRIVER LABEL 
ADAPTER=UBA, = sADAPTER TYPE = UNIBUS 
rLAGS=OPt M/SVP,- tSYSTEM PAGE TABLE ENTRY REQUIRED 
DEFUNITS= [UNITS 0 AND 1 
UeBS1ZESUCESK. DY_LEN,- LENGTH OF UCB 
NAME=DYDRIVER™ [DRIVER NAME 


DPT_STORE INIT “START CONTROL BLOCK INIT VALUES 
DPT-STORE DDB. DDBSL_ACPD 4, »<*A\FLI\> sDEFAULT ACP NAME 
DPT-STORE DDB DDBSL-ACPD¢ 3 °B,DDB$K_SLOW ;ACP CLASS 

DPT-STORE UCB,UCB$B_F IPL iF 
DPT~ STORE UCB UCBSL- “beverak. L.- :DEVICE CHARACTERISTICS 


E 
; DIRECTORY STRUCTURED 
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iDEV + RAND CESS 
DPT_STORE ne oes -DEVCHAR2,L,=- : DEVICE ee tate Mende 


< NNM>~ REF IX NAM 
DPT_STORE oe. OCB$B_DEVCLASS,B.D $ gPisk :DEVICE CLASS 
DPT“STORE UCB.UCB$W_DEVBUFSI2,W Au 

RE CB$B~ CT 5,8, 26 ‘Mie R OF SECTORS PER TRACK 
NDERS.W,7 si NUMBER OF TRACKS SER. CYLINDER 


. Vv 
78,10 ;MAX ERROR RETRY COUNT 
Wem ; INHIBIT LOG TO PHYS CONVERSION IN FDT 


DPT_STORE REIN START CONTROL BLOCK RE-INIT VALUES 
DPTSTORE CRB,CRBSL_INTD+4,D, DY int jINTERRU UPT SERVICE ROUTINE ADDRESS 
DPTSTORE CRB, CRBSL Int *vECeL INIT ;CONTROLLER INIT ADDRESS 
DPT_STORE ene, CASE TnORvECSL. UNITINIT,= ZONiT INIT ADDRESS 

DPT_STORE DDB.DOBSC_DDT-D,DYSDDT IbDT ADDRESS 


DPT_STORE END sEND OF INITIALIZATION TABLE 
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THE DDT LISTS ENTRY POIN 


INTS FOR DRIVER SUBROUTINES WHICH ARE 
CALLED BY THE OPERATING SY 


STEM. 
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DOTAB = 


CANCEL= 

REGOMP= of. 
DILAGBF =<< 
ERLGBF =<< 


; DIAGNOSTIC BUFFER SIZE 


ERROR LOG BUFFER SIZE 
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sf ones 
LON GWORDS ° ONGWORD FOR 
* 4 BYTES/LONGWORD> 


z 7¢ ae REGISTER LONGWORDS 
LONGWORD FOR # REGISTERS i 
: " BYTES/LONGWORD> + BYTES N 
TO SAVE SOFTWARE REGISTERS> 
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B14 Pi 2: AX/VMS Macro V04-00 | (1) v 
- RIVER.MAR; 1 
DYDRIVER STANDARD TABLES no TSK DRIVER "SHSEP=H9B6 00:16:25 “wang sor | 
$ , TION | 
ot Hip Fomcrm ergnamen= IMRT METER oy 
BY at: AE Crile se | 
24 4 FUNCTIONS | 
54 440 *ACPSURITEBLK, = see be vositme BLOC | 
069 123 eee GURITELBLK, = : URITE PHYSICAL BLOCK 
060 44 URITEVBLES : WRITE VIRTUAL BLOC 
O60 446 > SS_FUNCTIONS 
060 445 ACPSACCESS,- gACCE E / FIND DIRECTORY ENTRY 
e 109 Speier cACCESS. = : CREATE FILE AND/OR DIRECTORY ENT | 
; ; | 
06C 448 > FUNCTION | 
0078 286 FUNCTAB Sa: bt tptama i ooeACcess FILE 
< og ° | 
0078 451 > ;MODIFY FUNCTIO | 
0078 45 PSMODIFY,= ie FUNCTION | 
OoRe 438 saseehreeg CACPCONTROL, = oer ete rire AND/OR pDJRECTORY ENTRY | 
we i Sait ROE HEE Aaav 
0084 456 FUNCTION | 
$096. 8h FUNCTAB sparen 2 ra, VOLUME | 
0090 439 K VALID FUNCTIONS | 
Bose det FUNCTAB *EXESLCLOSKVALID, . FONE OAD VOL LURE | 
Bae oes Fane PACK ACKNOWLEDGE | 
009C 464 : TER FUNCTIONS 
009C 465 FUNCTAB *EXESZEROPARN, - oO ate | 
ee ae <UNLO : PACK ACKNOWLEDGE | 
ain ee | AVAILABLE | 
00A8 469 . ONE PARAMETER FUNCTION 
a0 tn FUNCTAB susan - a 
0B4 47 , TIONS 
bop, 78 FUNCTAB *EXESSENSEMODE, - i SEENSE. CHARACTERISTICS 
00CO 30 474 <SENSECHAR : SENSE MODE 
00CO 475 SENSEMODE~" ; | 
O0co 478 : SET FUNCTIONS 
45 me (A FUNCTAB SEXESSETCHAR,- : SET CHARACTERISTICS 
cc 4 <SETCHAR,= : SET MODE 
CC 479 SETMODE- ‘ 
cc 480 > 
OCC 481 
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: THI ROUTINE INITIALIZES THE RX211 CONTROLLER FOR I/O OPERATIONS. 
; IF THE INITIALIZATION 1S NOT COMPLETE WITHIN ONE SECOND, CONTROL 
: 1S RETURNED TO THE CALLER. 
: THE OPERATING SYSTEM CALLS THIS ROUTINE: 
: = AT SYSTEM STARTUP 
; - DURING DRIVER LOADING 
; DURING RECOVERY FROM POWER FAILURE 
: THE DRIVER CALLS THIS ROUTINE TO INIT AFTER AN NXM ERROR. 
: INPUTS: 
: RG = CSR ADDRESS (CONTROLLER STATUS REGISTER) 
: RS - IDB ADDRESS (INTERRUPT DATA BLOCK) 
: OUTPUTS: 
; THE HEADS FOR ALL DRIVES CONNECTED TO THIS CONTROLLER ARE LOCATED AT 
: TRACK ZERO, AND THE ERROR AND STATY US REGISTER IS CLEARED. 
: ALL GENERAL REGISTERS (RO - R15) ARE PRESERVED. 
DY_RX211_INIT: ;RX211 CONTROLLER INITIALIZATION 
Rove 7 (SP) SAVE RO-R1 
MOV)  #RY_CS_M INIT RY RY_CS(R4) EXECUTE Rx211 INITIALIZATION 
TIMEDWAIT TIMEZ#T 07- TONE SECOND WAIT LOOP 
INS1=<BI TW #RY_CS_M’ DONE RY ots (Re)>, = ;DONE ? 
INS2=<BNEQ 10$5,=" TIF NEQ = YES 
DONELBL=10$ LABEL 
20$: mova  (SP)+,RO0 tRESTORE RO-R1 
RSB sRETURN 
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DY_RX211_INIT = CONTROLLER INITIALIZATION ROUTINE 
FUNCTIONAL DESCRIPTION: 
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INTERNAL CONTROLLER RE=INITIALIZATION 


53 8ED0 
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RX211_REINIT: 
POP 


— 
oOo 
wr 


INPUTS: 


P=1984 DRIVER SRE iDYD DRIVER.MAR; 1 
~SBTTL INTERNAL CONTROLLER RE-INITIALIZATION 


RX211_REINIT = ns nage By subroutine used to issue an RX211 initialize function 


without hang nat oy 7. ee IPL waiting for it to finish. 
Becoune ll . 11 initialize does not interrupt when complete, 
we rely up Gevice timeout to resume the driver thread after 
invoking the init alize. 


R4 => RX211 CSR 
RS => UCB 


R3 Save return point. 


L 
DSBINT 
MOVW oer Gg ga MA IMET AY CS(RA) 3; Execute RX211 initialize. 
vo 10$,4 3; Wait for interrupt that doesn't come. 
10F ; We should never come here. 


SETIPL patti FIPL(RS) 


BICW ree OUT,=- 
SunSTS(RS) 
JMP 


Lower to fork level. 
Clear timeout status. 


Return to caller. 
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DY_RXO2_INIT = UNIT INITIALIZATION ROUTINE 
FUNCTIONAL DESCRIPTION: 

THIS ROUTINE SETS THE RXO2 UNIT ONLINE. | 
THE UNIT. IN | 


F 
ISKETTE FOR 
AN BE UPDATED IN 


avo 


THE UCB BY ISSUING AN 10 _PACKACK FUNCTION. 
THE veld ht} yh rants THIS ROUTINE: 


= DURING DRIVER, LOA DING 
- DURING RECOVERY FROM POWER FAILURE 


PAPAS OMIM 


OWONAWNE WH O ODN Win 


INPUTS: 


LER STATUS REGISTER) 


- CSR ADDRESS ( L 
SS (UN ONTROL BLOCK) 


R4 
R5 - UCB ADDRE 
OUTPUTS: 


THE UNIT IS 
ALL GENERAL 


CONTRO 
UNIT C 


SET ONLINE. 
REGISTERS (RO-R15) ARE PRESERVED. 


Pee Se Se Ge Se Ge Ge Se Se Ge Se Ge Ge Ge Fe Ge Se Ge Ge Sse Ge Se Se Ge Se Se Se Se 


DY_RXO2_INIT: 3RXO2 UNIT INITIALIZATION 


BISW #UCBSM_ONLINE ,.UCBSW_STS(R5) ;SET UCB STATUS ONLINE | 
MOVB #0C$_DTSK -UCB$B_ DEVELASS(R5) ;SET DISK DEVICE CLASS 
aye #0TS-RX02, “UCBSB_ =DEVTYPE (RS) ZASSUME RXO2 DEVICE TYPE 
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. «SBTTL ORIVER SPECIFIC SUBROUTINES 
; DY_MERGE = MERGE CSR BITS 

; FUNCTIONAL DESCRIPTION: 
THIS 5 Mh Is ¢ 
EXECUTION 


ALLED FROM THE STARTIO HARDWARE Aa LL 
OUTINES TO MERGE THE GO, UNITSELECT, INTERRUPT ENABLE 
S IN R2 PRIOR TO INITIATING THE INTENDED 1/0 FUNCTION. 


- UCB ADDRESS 


INS THE CSR BITS FOR: GO, UNIT AND DENSITY. 
STERS EXCEPT RO AND R2 ARE PRESERY Ep. 

“MERGE CSR BITS IN R2 
GO'RY_CS_M_IE,R2 ;SET GO AND IE BITS IN R2 


#RY 
ocBSu sONTY as) ry TAT Re sMERGE UNIT NUMBER IN R2<4> 


RY_DENSITY_SINGLE E€ 
ery _5SSD, Urast _PANBLOCK (R53 che inet DENSITY? 

an _DENSITY. QUAD, - : Setup as if we have QUAD density 
Y-CS_V_DER,- 

aRY =ESS-DEN.R2 

UCBSL_MAXBLOCK(RS) : See if indeed QUAD density. 

10$ : If QUAD, then we are all get. 

po DENSITY DOUBLE,=- ; Else must be DOUBLE density 
Y-CS_V_DER,- ; setup CSR register value Le cardtagty. 


PRY CS7S7DEN-R2 
RETURN 


~~ 
<a 
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16A ? .SBTTL FDT ROUTINES 
a a 
A 6 0 : DY_ALIGN = FDT ROUTINE TO TEST XFER BYTE COUNT 
16A 6 : : FUNCTIONAL DESCRIPTION: 
16A 634: THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER 
16A 635: TO CHECK THE BYTE COUNT PARAMETER SPECIFIED BY THE USER PROCESS 
16 : 6 ; FOR AN EVEN NUMBER OF BYTES (WORD BOUNDARY). 
16A 6 a ; INPUTS: 
16A 640: R3 = IRP ADDRESS (1/0 REQUEST PACKET) 
16A 641: Rd - PCB ADDRESS (PROCESS CONTROL BLOCK) 
16A 64g : RS - UCB ADDRESS (UNIT CONTROL BLOCK) 
16A 643: R = CCB ADDRESS (CHANNEL CONTROL BLOCK) 
16A 664: R - BIT NUMBER OF THE I/0 FUNCTION COD 
16A 645: RB - ADDRESS OF FDT TABLE ENTRY FOR THIS ROUTINE 
O16A G46 : 4(AP) = ADDRESS OF FIRST FUNCTION DEPENDENT Q10 PARAMETER 
016A 648 > OUTPUTS: 
O1eA 650 : If THE Q1O BYTE COUNT PARAMETER IS ODD, THE 1/0 OPERATION IS 
016A 651: TERMINATED WITH AN ERROR. IF IT 1S EVEN, CONTROL IS RETURNED 
O16A 63¢ : TO THE FDOT DISPATCHER. 
16A 655; 
Blea ees 
O16, 636 DY_ALIGN: :CHECK BYTE COUNT AT P1(AP) 
01 04 AC Es O16, 637 BLBS 4 CAP), 108 iret LBS = 000, BY TE COUNT 
50 034 BF ¢ O16F 659 10S: MOV ZL #SS$_IVBUFLEN,RO SET BUFFER ALIGNMENT STATUS 
00000000'GF 17 0174 660 G*EXESABORTIO. SABORT 1/0 
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v04= START 1/0 R "Bree e198 BOsiksos EDAIVER eae iovoRiven.mar;1 oe ay 
4a LSBTTL START 1/0 ROUTINE | 
17A +e 


DY_STARTIO = START 1/0 ROUTINE 
FUNCTIONAL DESCRIPTION: 


THIS FORK PROCESS IS ENTERED FROM THE EXECUTIVE +f» AN 1/0 REQUEST 
PACKET HAS BEEN DEQUEUED, AND PERFORMS THE FOLLOWING 


= ACTIVATES THE DISK AFTER SETTING UCB FIELDS, gets 
UBA AND CONTROLLER RESOURCES, AND SETTING RX211 R 


- WAITS FOR AN INTERRUPT 


PAAAAAAAAAAAA AAA AAAAAAAAASOSOOOAA OS Feed 
OOOO 000009090009 69 69 09098 INI SII NINN NINIOOOOOOAO -1— 
WN 9 OO NAUEWN § 9 ODNAU EWN SO OONAUE UP ped 


17A : 
17A : 
17A : 
17A : 
17A : 
17A : 
17A 3 
17A $ 
17A : 
17A : 
17A : 
ane 
O17, : ~ REGAINS CONTROL AFTER THE ISR SERVICES THE INTERRUPT, AND 
17A : RE“ACTIVATES THE DISK IF THE ORIGINAL FUNCTION 
017A : NOT YET COMPLETE, OR 
017A ; - COMPLETES THE 1/0 REQUEST BY RELEASING RESOURCES 
OI7A ; SETTING STATUS CODES, AND RETURNING TO THE EXECUTIVE. 
O17 : INPUTS: 
OIA : R3 - IRP ADDRESS (1/0 REQUEST PACKET) 
17A : R5 - UCB ADDRESS (UNIT CONTROL BLOCK) 
OIZA ; IRPSL_MEDIA - PARAMETER LONGWORD (LOGICAL BLOCK NUMBER) 
SEAN : OUTPUTS: 
O17, : RO - FIRST 1/0 STATUS LONGWORD: STATUS CODE <° BYTES XFERED 
7A 693 R1 - SECOND 1/0 STATUS LONGWORD: 0 FOR DISKS 
Oi7A 695 : THE 1/0 FUNCTION IS EXECUTED. 
O17 69 ; ALL REGISTERS EXCEPT RO-R4 ARE PRESERVED. 
17A 69 — 
17A 0 
17A 701 DY_STARTIO: :START 1/0 OPERATION 
17a 7 : 
017A 703; 
017A «704: PREPROCESS UCB FIELDS 
17A 705; 
17a 7. 6 
17a? ASSUME RY GaTEWED STATUS_LENGTH 8 , 
0oFO cS) ss 7C HA oe CLRQ UCBSQ_DY_EXTENDED_ sHATOSCRSS” : Zero READ ERROR REGISTER area. 
90 1¢5 90 OI7E 710 MOVB UCB$B EAT eAT R33 - :INITIALIZE ERROR RETRY COUNT 
oc 1 711 UCBSB-ERTCNT(R5) | 
00cO cS 0085 AS AE O01 ar MNEGW UCBSUCBCNT(RS) gucesu “Bcring) HINT NEG BYTES LEFT TO XFER | 
B4 01 71 CLAW UCBSW~DY_DPN(RS CLEAR DATA PATH NO. FOR USE AS- 
18F 6714 RESOURCE ALLOCATION FLAG 
00g0 ¢ 94 O18F 715 CLRB =: UCBSB_DY_ER(RS) a SPECIAL ERROR REGISTER 
009A C5 BO 01 ; 216 MOVW  IRPSWTFURC(R3) ,UCBSW_ runisk ) “SAVE FUNC SION CODE 
EF 0199 71 EXTZV #IRPSU_FCODE,-. ggATR ACT 1/0 FUNCTION CODE 
51 20 a3 198 718 #IRPSS-FCODE, IRPSW_FUNC(R3), Rt ite | 
| 
} 


ee 
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DYDRIVER = VAX/VMS RX211/RX02 DISK DRIVER 16-SEP-1984 AX/VMS Macro v04-00 Page 
ae tt START 1/0 ROUTINE g: Hie 138 88: ¢ 38 DRIVER. SRCJDYDRIVER.MAR; 1 ° 
0092 C3 1 90 019F MOVB sR} case FEX(RS) -STORE FUNCTION DISPATCH INDEX 
68 A : AA O1A46 BICw #ucBSm BTAGBUF? UCBSW. pevSTS(R5) ;CLR DIAGNOSTIC BUFFER PRESENT 
E1 O1A8 BBC #IRPSV-DIAG UF ¢- 71F CLR -'NO DIAG BUFFER 
04 2A A 1AA IRPSW_STS(R3) ,10$ 
68 AS) 02) «AB Ap ; BISW  #UCBSA_DIAG aut, UCBSW_ pevétsirs) :SET DIAG BUFFER PRESENT 
181 $3 
181 7 g : BRANCH TO FUNCTION EXECUTION 
1B) 958° 
08 £0 0181 7 § 10$: BBS #IRPSV_PHYSIO,- s1F SET = PHYSICAL 1/0 FUNCTION 
OD 2A A 183 f 9 IRP$SW_STS(R3) +208 See 
08 EO 186 BBS i CBS0_VALID :1F SET = VOLUME SOFTWARE VALID 
> 8, 4 A 188 «67 : ucesu SAGA 20$ 
4 8F 3¢ 01 7 MOVZWL $00) OL INV,RO SET VOLUME INVALID STATUS 
0613 31 O1C 734 BRW RESET uF [RESET BYTE COUNT AND EXIT 
51 06 1 1¢ 735 208: CMPB #10$_UNLOAD, R1 ‘Unload function? 
08 13 \e6 7 § BEQL UNLOAD ‘Branch if yes. 
51 11 91 O1C 7 CMPB #10$ AVAILABLE, R1 :Available unc tion? 
93 13 O01CB 7 } BEQL AVAICABLE :Branch if yes 
0082 = «31 10D 7 BRwW FEXL tElse, branch to execute function. 
ipo Pat 
100 14g : UNLOAD and AVAILABLE Functions 
108 Se ; Clear UCBSV_VALID in UCBSW_STS 
1D0 745 UNLOAD: 
100 246 AVAILABLE: 
64 AS 0800 BF AA 192 oe BICW euceen vat 10, ° :Clear sofware volume valid bit. 
106 8 F} BRB NORMAC sThen complete the operation. 
106 £30 
ine 
1D6 £38 : OPERATON COMPLETION 
pe pag 
1D6 36 NORMAL SUCCESSFUL OPERATION COMP LET E 
50 01 3¢ 106 75 MOVZWL #SS$_NORMAL RO : ASSUME NORMAL COMPLETION STATUS 
0092 ¢5 ¢ 91 1p 38 cHPB i gepherpertae FEX(RS) neo no. UNCTION? 
6 if 186 760 BBC #RY_D [IF CLR = NO DELETED DATA MARK 
39 00D0 ¢ 162 761 geese BY: BERS) FUNCXT :... 
50 0661 ef 3¢ 166 16¢ MOVZWL ass RODELDATA,RO :SET READ DELETED DATA STATUS 
2 eB 163 BRB NCRT sFUNCTION EXIT 
1ED 765 RETRYERR: ;RETRIABLE ERROR 
0080 cS) =«-97:=«COO1ED 066 DECB UCBSB ERTCNT(RS) tANY RETRIES LEFT? 
10 13 O1F1 76 BEQL FATALERR IF EOL - NO 
0080 C5 1 91 ite £08 CMPB a UCBSe -ERTCNT(RS) 3 See if only one nore retry left. 
03 1 1F id: BNEQ log : If NOT, branch around. 
FFOE iF £70 ee BSBW 9s RX211_REINIT : If YES, re- INITIALIZE RX211. 
53 58 AS 00 O1FD if " — MOVL «=: UCBSL_IRP(RS).R3 ; Refresh R3 => IRP. 
e $0 03 BRB FEXL SRETRY FUNCTION 
: 775 FATALERR: ZUNRECOVERABLE ERROR 


—~— 
————e | 


SS -SS 
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ae ht START 1/0 ROUTINE g- aaatt 90:92:38 YORI YER. SREIDYORIVER.MARS 1 - 2) 
50 O1F4 BF 36 3 : MOVZWL #SS$_PARITY,RO sASSUME PARITY ERROR STATUS 
E BBS RY_ 6B v_cRe,- SIF SET = CRC ERROR 
11 9900 A m7 UCBSW BY DB(RS) ,FUNCAT vet | 
50 C 8F 36 MOVZUL #SS$_DRVERR R SASSUME DRIVE ERROR STATUS 
8 9 BITW #RY BB_M_DE!RY_DB_M_ACLO,- ;DENSITY OR PWR ERROR? 
12 021 2 BNEQ FUNCKT :1F NEQ = YES | 
50 0054 BF 3C 1A ; MOVZWL #SS$_CTRLERR,RO [SET CONTROLLER ERROR STATUS | 
1F ; 5 FUNCXT SFUNCTION EXIT | 
50 od OolF 7 : PUSHL RO [SAVE FINAL REQUEST STATUS 
00009000" GE 1 1 f JSB G* LOCSDLAGBUF ILL [FILL DIAGNOSTIC BUFFER IF PRESENT 
0D C5 a f f ; Sty ye W_DY_DPN(RS) ARE UBA RESOURCES ALLOCATED? 
0069 C3 Al D 790 ADDW3 UCB$W_BCR(RS) ,- [CALCULATE BYTES TRANSFERRED 
02 AE A 1 791 IRP$W-BCNT(R3S ,2(SP) ‘AND PUT IN I/O STATUS BLOCK 
5 198 RELDPR SRELEASE DATA PATH 
B 79 RELMPR SRELEASE MAP REGISTERS 
41 794 10$:  RELCHAN RELEASE CHANNEL IF OWNED 
51 04 0247 795 CLRL RT SCLEAR 2ND LONGWORD OF I0SB 
50 BEDO 0249 796 POPL R [GET 1ST LONGWORD OF 10SB 
024C 797 REQCOM [COMPLETE REQ 


| 
UEST 
| 
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FEXL = RX211 HARDWARE FUNCTION EXECUTION 
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ea 2 = VAX/VMS RX211/RXO2 DISK DRIVER 16-SEP-1984 AX/VMS Macro V04-00 p 1 
yon O08 START 1/0 ROUTINE gree 1 8be BbiFe:58 FOMIVER. Seelovbetvce.mars1 2% 2, 
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THIS ROUTINE IS CALLED VIA_A - rome STARTIO, PARAMETERS ARE LOADED | 
INTO peyice R Fors! RS AND THE FUNCTION IS INITIATED. THE RETURN ADDRESS 
IS STORED IN THE UCB AND A WAIT FOR INTERRUPT IS EXECUTED. WHEN THE 
INTERRUPT OCCURS, CONTROL IS RETURNED TO THE CALLER. 
INPUTS: 

R35 = IRP ADDRESS (1/0 REQUEST PACKET) 

R5 = UCB ADDRESS (UNIT CONTROL BLOCK) 

OO(SP) = RETURN ADDRESS OF CALLER 
OUTPUTS: 


THERE ARE FOUR EXITS FROM THIS ROUTINE: 


» enn CONDITION = THIS EXIT {s TAKEN IF A POWER FAILURE OCCURS 
R THE OPERATION TIMES OUT 


| 
| 
2. FATAL_ERROR = THIS EXIT IS TAKEN IF A FATAL CONTROLLER OR DRIVE | 
ERROR OCCURS OR IF ANY ERROR OCCURS AND ERROR RETRY IS EITHER 
INHIBITED OR EXHAUSTED. 
3. ode 4 aluee - THIS EXIT 
OR DRIVE ERROR OCCURS 
NOR EXHAUSTED. | 


4. weeny A OPERATION = THIS EXIT IS TAKEN IF NO ERRORS OCCUR 
DURING THE OPERATION. 


five ALL CASES IF AN centr OCCURS, AN ATTEMPT IS MADE TO LOG THE ERROR. 
ucesu. -BCR(RS) = NEGATIVE BYTES REMAINING TO TRANSF 
EXL: hb EXECUTO 


IS TAKEN IF A RETRIABLE CONTROLLER 
AND ERROR RETRY IS NEITHER INHIBITED 


nm Se Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Gs Ge Ge Ge Se Se Se Se Se Ge 


COODOSOOOCOCOCOCOCOOCOCOOO OO OOO SOOO OOOO OOO OOOO OOOO OOOO OOOO OOO 
POP IPI IPIPIPOPIPIPIPIPIMIPININIPIPIPIMINIPOPINIFIPOPINIPOPONIPIPOPOR IFIP PIF IFIP IF OPRIF FOP INIT OP ON IT ORIN 
Baton ne en GOA GAO O OOo OA On OOOO On oO OI OOO OA ORO OR ORO aROAE ~ 
ViUuom > Oo 
C0Ov 300909 09 00 09 00. 09 Cd Cd CD 00 Cd C0 CD 0D CD CD CD 009 09.09 0009000909 0000000000~N e 
ONE BREESE ES FW IWIUIUIRIRINIPININIPINTUN 2 


BPI —@§ OOD NA NE WN 2S OD NAN EWN 9 OD NAN WN SO OO NAUE WIN OOO NAUE UU 


L CASES FINAL DEVICE REGISTERS ARE RETURNED VIA THE UCB. 
50 : AS 00 MOVL  UCBSL_CRB(RS).R [GET ADDRESS OF PRIMARY CRB 
51 2c ad 00 MOVL  CRBSL Stihrtit IDB(RO).R1 Get ADDRESS OF IDB 
04 a1 55 01 CMPL R5, IDB$L_OWNER(RT) :D0 ES THIS PROCESS OWN CHANNEL? 
05 if BNEQ 10 ‘IF NEQ = NO 
54 61 e MOVL JDBSL_CSR(RI) .R4 SET ASSIGNED CHANNEL CSR ADDRESS 
10$:  REQPCHAN SREQUEST CHANNEL (RETURNS R4 = CSR ADR) 
64 0800 8F 8B 20$:  BITW  #RY_CS_M_RXO2.RY_CS(R4) 31S DEVICE Rx02? 
13 1 BNEQ $s" *1F NEQ = YES | 
0060 cS =—02—siB 7 BISB #RY_RXO1SW,UCBSB_DY wER(R5) SET ERROR, BIT IN UCB | 
96000000°GF 16 087 JSB_ G*ERLSDEVICERR sALLOCA FILL ERROR MESSAGE BUFFER | 
50 0054 8F 3 7 MOVZWL ases ETRLERR, RO SET CONTROLT ER ERROR (RXO1 SWITCH SET) | 
0551 «31 BRW RESETXF EXIT | 
0092 cS. 1 1 30S: CMPB = #108 FORMAT,UCBSB_FEX(RS) | FORMAT FUNCTION? 
. A BEQL T -IF EQL = YES 
0092 C5 5 91 ¢ CMPB tig PACKACK,UCBS$B_ FEX(R5) - PACK ACKNOWL EDGE FUNCTION? 
13 BEQL 408 If €aL = svés 
gu E 3! 93 BRW XFER ‘hust BE A TRANSFER FUNCTION 
088 31 0296 40$: BRW PACKACK [PACK ACKNOWLEDGE FUNCTION 


gave ose even” THEBES BREE BAIT. 


FORMAT FUNCTION EXECUTION (SET MEDIA DENSITY) 
FUNCTIONAL DESCRIPTION: 


THIS FUNCTION CAUSES THE ENTIRE DISKETTE TO BE REASSIGNED TO A NEW 
DENSITY. THIS OPERATION TAKES ABOUT 15 SECONDS TO COMPLETE. 


IT IS ASSUMED THAT AN 13° ee ag HAS ALREADY BEEN PERFORMED ON THIS 
DISKETTE TO SET UP UCBSB_TRACKS 


THE DRIVER EXITS WITH SSS_CTRLERR STATUS IF SINGLE DENSITY FORMAT 
IS REQUESTED FOR A DOUBLE™SIDED DISKETTE. 


The ify ~ exits with SS$_FORMAT status if an attempt is made to reformat 
@ quad density diskette. The diskette is not modified. 


ra 
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INPUTS: 
R - IRP ADDRESS 
R4 - CSR ADDRESS 
RS - UCB ADDRESS 


NOUS WINS OO NAME WT" OWONAUW 


nn Bete Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se Ge Ge Se Se Se Sets 


78 ORMAT : sREFORMAT DISK TO NEW DENSITY 
BBO ; 
a : SET NEW DENSITY (VIA MAXBLOCK) IN UCB 
BBs 
38 a3 bo BBG MOVL —IRPSL_MEDIA(R3),- ;SET PARAMETER LONGWORD IN UCB 
008¢ c B85 UCBSL~MEDIA(RS) : 
02 4 AS 4 i cHeB UcBSe- TRACKS(R5S) #2 iis “TT DOUBLE SIDED? 
0080 cS) O7cS BF 3 BBB MOVZWL #RY_DSDD Ucesy mayococe "SET DOUBLE SIDED MAXBLOCKS 
62 00B¢ C5 pi 889 cHPL CBSL_MEDIACRS) ,& 1S DOUBLE DENSITY REQUESTED? 
50 0054 &F 3 B91 MOVZWL #sss CTRLERR,RO ?SET ERROR STATUS 
F640 31 $9 BRW UNCRT SAND EXIT 
0080 cS) s«O1EE @F O35 B94 10S MOVZWL #RY_SSSD ucest MAXBLOCK (RS) sASSUME SINGLE DENSITY 
02 ooBc cS Di 95 CMPL CBSL_MEDIA(RS) ,& 31S D DOUBLE DENSITY REQUESTED? 
19 9 BLSS 0 iF L LSS = NO, SINGLE DENSITY 
0080 cS) O3Dc BF 3 3 MOVZWL #RY_SSDD,UCBSL poet od: ) 3SET DOUBLE DENSITY MAXBLOCKS 


B99; 
; ? 3 REFORMAT DISKETTE 


FEOF «= 3 § 208:  BSBW DY_MERGE MERGE GO,UNIT,IE,DEN IN R2 
64 08 2 ay 4 Bsus Re-HF ast SETDEN,RY_CS(R4) CENSI7Y FUNCTION 
6 TMEDWALT f nE=#100*1000,~ ONE SECOND WAIT TIMEQUT 
INS1=<BITB bey cSM_TR! RY_CS_M_DONE RY_CS(R4)>,=_ ;T/R OR DONE? 
8 INS2=<BNEQ 25$5,-" SIF LSS = TRANSFER COMPLETE (T/R) 
[IF NON-ZERO = DONE BIT SET - ERROR 
9 - sIF EQL = NEITHER, WAIT 
1 DONELBL=25$ 


a 


CSEEISHL SSHEIEE SHOES. SeteBRRE mann "0 


v0 
ucasu BY" “pBiRs), 30$ 
BBC Y DB_V-QDEN : If NOT quad density, branch around. 
ucesu BY- DBRS), 30$ 


MOVZWL ass FORMAT 3 If we tried to change QUAD diskette. 
BRw NCRT 3; Return error and branch. 


so” Oost &F 3c 
FECE 


0302—s«51 


Ou 
50 BE 4 MOVQ = (S$P)+,RO : RESTORE RO-R1 
64 AO BF BITB #RY_CS_M_TRIRY_CS_M =DONE: RY _CS(R4) OR DONE? 
3 1 BLSS 36s F"LSS = rhasr er COMPLETE (T/R) 
| BEQL 6$ Sone 8 = TIME HAS EXPIRED 
0416 BRW RETREG BIT sete ERROR 
1 26$: MAL RETURN 
CKPWR sey & CHECK FOR PWR FAILURE 
02 a4 0049 BF BO W = #* X49, RY g(R4) ASCII "I" IN DBR TO START FNTN 
7 zt WAITFOR INTERRUPT 
1 9 1OF ORK SCREATE FORK PROCESS (8JSB BACK TO ISR) 
OF €1 5 BBC wry CS_V_E 3; If no error at all, branch around. 
14 OOCE cs 9 Ucesi By- “FRtaS), 30$ 
a iy ae D BBC ; If no DENSITY error, branch around. 
OE 00D0 ¢3 F 9 
1 43 9 
45 9 
49 9 
aH 
c= 


11 

TI 

i$ 

14 

12 

9 

15 

1 MOV 
Y WFIKPCH SPECOND, 
§ 

4 

5 

; 

9 

0 

1 

2 


BRW RETREG ; 
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PACK ACKNOWLEDGE FUNCTION EXECUTION 
INPUTS: 


= CSR ADDRES 
RES 


R4 $ 
RS - UCB ADDRESS 


FUNCTIONAL DESRIPTION: 


THIS OPERATION ESTABLISHES THE CURRENT DISKETTE’S DENSITY AND 
NUMBER OF SIDES. THIS INFORMATION IS THEN STORED IN THE UCB. 


IOSPACKACK MUST BE THE FIRST FUNCTION ISSUED TO A DISKETTE AFTER 
IT HAS BEEN PLACED IN A DRIVE. 


OUTPUTS: 


UCBSL_MAXBLOCK, UCBSB_TRACKS, UCB$B_SECTORS, UCBSW_CYLINDERS 
UCBSB-DEVTYPE . AND UCBSB_DEVCLASS ARE UPDATED. UCB$V_VALID Is 


PACK ACKNOWLEDGE 
BISW  #UCBSM_VALID,- 
UCBSW~STS(R5) 


Set software volume valid bit. 
MOVB #RY_SECTORS,- 
UCBS$B_SECTORS(RS) 3; Set sectors/track 


mMOvZBW #RY_CYCIND - 
ecgse CYLINDERS(RS) =; Set # cylinders 


MOVB DC$_DISK,=- 
ucese DEVCLASS(RS) 3 Set disk device class 

MOVB #0T 7 
ycese DEVTYPE (RS) 3 Assume RX02 device type 

MOVB #1,UCBSB_TRACKS(R5) : Assume single sided 

MOVL = #*K 02,- s 
UCBS$L_MEDIA_ID(RS) : Set media ident "DY RX02 

MOVZWL #RY 35 0,- 
UCBSL_MAXBLOCK(RS) ; Assume single density 

BSBW DY_MERGE sMERGE GO,UNIT,DEN,IE IN R2 

CKPWR “DSBINT & CHECK FOR PWR FAILURE 

BISW3 R2,aF READSTATUS.RY_CS(R4) sEXECUTE READ STATUS FUNCTION 

WF IKPCH SPECORD, #1 3; Wait for ncerrupt. 

1OF ORK sCREATE FORK PROCESS (& JSB BACK TO ISR) 

BIT #RY_DB_M_DORDY,UCBSW_DY_DB(RS5) ;WAS DRIVE READY? 

BNEQ $ sIF NEQ - 

MOVZWL #SS$_MEDOFL,RO sSET MEDIUM OFFLINE STATUS 

BRW FUNCRT 3AND EXIT 

BBCC #RY _DB_V_DE.=- : If clear, Single density so 
UCBSW_BY"DB(RS) ,15$ ; branch around. 

MOVZWL #RY_SSQD,- 3; If NOT s ngle. setup for QUAD and 
UCBSL_MAXBLOCK(RS) 3: then we will test to see if so. 

BBS @RY_ DB_V_QDEN,- :; If set, then it IS quad Cone ity so 
UCBSW_BY"pB(R5) ,15$ : we branch around next instruction. 
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#RY_SSDD,UCBSL_MAXBLOCK(RS) ;SET DOUBLE DENSITY IN UCB 


UcebucDY bf NDBERS) 


RY 
UeBse7 “pv. ere tRS) 


#RY_DB_V 
UCBs BY=DBRS), 30$ 


aan DEVTYPE (RS) 
4 UCBSL_MEDIA_ID(R5) 


sANY ERRORS BESIDES DENSITY ERROR? 


‘iF NEQ = YES 
3; No, clear csr error bit 


3; See if controller is Rx04. 
3 and if NOT branch around. 


Set proper device ty 1p 
Set media ident ‘DY RXx04"’ 


an 
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VAX/VM RX02 DISK DRIVER 16-SEP-1984 00: AX/VMS M v04-00 
START I/ E eet 8:42: 38 DRIVER. SRCIDYDRIVER.MAR:1 oo” #8, 
| 
F | 
TRANSFER FUNCTION EXECUTION 
F FUNCTIONS INCLUDE: 
F WRITE DATA, AND 
READ DATA 
: INPUTS: 
F R3 = IRP ADDRESS 
F RG = DEVICE CSR ADDRESS 
RS = UCB ADDRESS 


; FUNCTIONAL DESCRIPTION: 


; THE LBN IS CONVERTED TO CYLINDER, TRACK, AND SECTOR, THEN SKEW AND 
; INTERLEAVE FACTORS ARE CALCULATED TO ARRIVE AT A PHYSICAL MEDIA ADDRESS. 


BUS DATAPATH IS REQUESTED FOLLOWED BY THE APPROPRIATE NUMBER OF MAP 
TERS REQUIRED FOR THE TRANSFER. 


| 

| 
HE RX211 ALLOWS A MAXIMUM DATA TRANSFER OF ONE SECTOR, SINGLE 

TRANSFERS ARE REPEATED (VIA THE "'COMXFER:"' LOOP) UNTIL THE I/O 

| 

| 

| 

| 

| 

| 


I 
S 
E 
0 
E S COMPLETE. 


A_UN 
REGI 
SINCE T 
SECTOR 
REQUEST 
H SEC AS ovens OF TWO FUNCTION CODES: 
f. (A ReaD Fun UNCTION, OR 


I E 
R AND F lth t 
S 
$s 
I 


ow 


E NCTION. 

EQUENCE ARE LOADED into THE 
ECOND FUNCTION ARE P a. 

ON, UCBSL_DY_XFER 1s” ROTATED 
CSR BITS FOR THE NEXT FUNCTION. 


A PROTOCALL OF LOADING THE RX211 DATA BUFFER ei wett (DBR) WITH TWO UCB 
CAEL os 1S REQUIRED AFTER LOADING THE CSR. R3 IS LOADED AND ROTATED SO 

T ITS LOWER WORD ALWAYS CONTAINS THE FIRST vee” OFFSET TO BE LOADED 
INTO THE DBR FOR THE CURRENT FUNCTION CODE. 


THE CHANNEL AND UBA RESOURCES ARE NOT RELEASED UNTIL THE ENTIRE 1/0 
REQUEST IS COMPLETE. 


IT IS ASSUMED THAT AN I10$_PACKACK FUNCTION HAS ALREADY BEEN PERFORMED 
ON THIS DISKETTE TO SET UP UCBSB_TRACKS AND UCBSL_MAXBLOCK. 


LOWE 
THE UPPE NET 


=—mm 
>> wZ2Mmom 
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MFER: ; TRANSFER FUNCTION EXECUTION 
00D2 3 jf TSTW CBSW_DY_DPN(R5) 31S THIS A RETRY? 
BEQL ; if L -WN 
oor BR % ;DATAPATH ALREADY OWNED 


FIRST TRANSFER OF THIS 1/0 REQUEST 


ph h~)~i~i~ b> 7. PoP oT oT ee oe ot oo ot ot ot ot ot ot ot ot ot et et ot et et et et et et et et et et et et et tt et tt = 


a oD 


a a 
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DYDRIVER = VAX/VMS RX211/RXO2 DISK DRIVER 1 4 2:58 VAX/VMS Macro V04-00 Page 27 
vou~000 START 1/0 ROUTINE BSEp=1984 00:14:25 LDRIVER.SREIDYORIVER.MAR:1 2? (1) | 
FD 1 66 DETERMINE SECTOR SIZE | 
FD 1068 | 
ooce ¢5 9040 8F BO O3FD 1 § 2$: MOVW  #RY_SWPS,UCBSW_DY wps S(R5) : Assume spingte dens. WORDS/SECTOR | 
OIEE BF 080 £3 8} te f chew ycBsi. MAXBLOCKTRS) ,# per a aie | 
cc cs 0080 8F B80 D 107 MOVW  #RY_DWPS,UCBSW_DY_wPS(RSS ; Assume double fens WORDS/SECTOR 
O30C 8F 0080 C3 3 ie ! t? ne CBSL_MAXBLOCKTRSY, RY ~5SDD : Double ¢ opt | 
oocc cS) = 0100 af B0 1? ! 76 MOVW #RY_QWPS ,UCBSW_DY_WPS(R5) : Adjust for. QUAD density. | 
4 1077; 
4 1078 ; CONVERT LOGICAL BLOCK NUMBER TO CYLINDER, TRACK, AND SECTOR | 
4 1080 : LON = LBN * (SECTORS/BLOCK) | 
4 1081 : tBN/(S ECTORS/TRACK) = D + SECTOR 
: 19 § 3 D/(TRACKS/CYLINDER) = CYLINDER + TRACK | 
4 1084 ° 
OOEC CS «38 ASCO 4 1085 S$: MOVL  IRPSL_MEDIA(R3) ,UCBSL_DY =LMEDIACRS) : ASSUME PHYSICAL 1/0 | 
08 €0 A 1086 BBS #IRP$O_PHYSIO,- ilF SET = PHYSICAL I | 
2F 2A A C 108 IRPSU.STSCR ),10$ r 
50 oocc cS 3¢ F 1088 MOVZWL UCB$W-DY_WPS(RS) ,RO : Get words per secto 
50 0100 8F 50 A7 4 1089 DIVW3 RO,#256,R0 : FORM SECTORS/BLOCK IN RO 
5038 AS C4 A 1090 MULL IRPSL_MEDIACR3) ,RO CALE LBN IN NR 
52 4405 «(9A ; 1091 MOVZBL UCBS$B~SECTORS(R5) ,R2 ‘PUT SECTORS/TRACK IN R2 | 
5104 (044 109¢ CLRL sR ‘CLEAR HIGH PART OF DIVIDEND 
OOEC cS) 50 52 7B 0444 109 R2,RO,RO,UCBSL_DY LMEDIACR ) sCALCULATE SECTOR NUMBER AND STORE 
52. 45 05 9A 04648 1094 MOVZBL UCB$B.TRACKS(RS) .R PUT TRACKS/CYLINDER INR 
51 50 SO 52 7B O44F 1095 EDIV R2,RO>RO,R1 3CALC ATE TR TRAC CK AND CYLINDER 
00eD (C5) 51 s« 900454 1096 MOVB R1,UCBSL_DY_LMEDIA+1(R5) AST NUMBER 
O0ckE C5 =2—50~—saBO 39 1398 MOVW  RO,UCBSL-DY“LMEDIA+2(R5) STORE CTLINDER NUMBER 
SE 1099; 
5E 1100 ; Output of above code is to produce the logical sector number in UCBSL_DY_LMEDIA | 
43 1193 3 in the following format: 
SE 11 : : 31 1615 87 
Ha 1" ¢ Ps eeeeeee eeeeee ee ee eeeeee si 
of 1196 : cylinder : track : sector: | 
SE 1108 ; : s(always: see : 
2f Hi $ : 0 to 76 : zero) : below : 
: 4443 ; eeeeocea eevee eeeeeeeeeeeeeeeeeeeeeeee 
2 Wg : Sector nunber ranges: 
SE 1113: Physical 1/0 i 0 36 | 
WNi3 3 Lopicat 1/0 0 to 
44 05 9A 1118 108: MOVZBL UCB$B_SECTORS(RS) : Get maximum sectors information. | 
33 C3 51 61 és 111 CMP R1 ycest oD L_DY TLMEDIACRS) : Maximum sector exceeded? | 
04 2A A3 08 €0 1118 BBS #IRP 1819. : Seperate the logical from the 
c. 37 [arse grate ), 1108 : physical 1/0; branch if physical. 
i 18 ¢ 11 9 BLEQU $ : Branch if too big for logical 1/0. 
8 1 of 11 RB 130$ : ALL ok, so far, continue tests. 
— iF 1122 1108: BLSSU 1908 | Sesech’ i? physical sector too big. | 
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CMPB #108. READPBLK,UCBSB_FEX(RS) ;READ FUNCTION? 
20$ :1F NEQ - NO, MUST BE WRITE 


& 


sREAD F 


UNCTION 
O0OE8 (5 «852 406) AD BISWS #F _READSEC . 3 SET READ SECTOR AS 1ST FUNCTION 


Ohad tS = VAX/VMS RX211/R 
Vv04- START 1/0 ROUTINE DRIVER. SRCIJDYDRIVER.MAR; 1 (1), 
| 
OOEC Dd 472 1123 TSTL SL_DY_LMEDIA(RS) 3; Zero physical sector is also illegal. 
H f} cfg 1124 BEQL ¥58s 3 Branch, ¥ zero physical sector. . 
OOEE CS 46 A B1 0478 1125 1308: CMPW UCBSW_CYLINDERS(R5) 3; Check for, maximum cylinder 
47E 11 é ! BSL DY “LMEDIA+2 (RS) : exceeded. 
gs A O47E 11 BGTRU ; Branch # max. cylinder not exceeded. 
50 0134 8F C 04 11 8 190$: MOVZWL #SS$_IVADDR, RO 3; Otherwise, give nvalid address 
FD97 1 r i} 4 BRw FUNCRT : status and kill request. 
4 1131; 
‘i | 1} § ; ALLOCATE UBA RESOURCES 
488 1134 ° 
4 1135 12$: REQDPR ;REQUEST DATAPATH 
48E 11 REQMPR sREQUEST MAP REGISTERS 
494 11 LOADUBA : AD UNIBUS MAP REGISTERS 
51 24 AS DO O49A 11 3 MOVL UCBSL_CRB(RS),R GET CRB ADDRES 
5 EF 049 11 EXTZV #vecs? ae AVECSS pATAPATH - ;EXTRACT DATAPATH oa pe - 
50 37 4A1 1140 cRBSL sty $6, pat ATAPATH(RI) RO FOR UBA RESOURCE FLAG 
00d2 cS 30 g0 6AG 1141 MOV ucé DIcATE UBA RESOURCES ALLOCATED 
$0 7¢ C 04A9 1148 MOVZWL RO, W_B et BYTE OFFSET IN PA 
0 07" FO rts W402 INSV ce - =BOFF RB) Omaenescits - ;INSERT HIGH 7 BITS OF ADDRESS 
OOE6 C5 3 B80 048 1145 MOVW no: Och DY_SBA(RS) PUT BUFFER ADDRESS IN UCB 
50 34 Al 0 EF 4B8 1128 EXTZvV @# RBSL_ INTD+VECSW _MAPREG(R1), RO ;GET MEMORY EXTENSION BITS 
O0E3 C 50 90 gee Vien MOVB RO, aiett DY ~XBA(RS) ;AND SAVE THEM IN THE UCB 
4C 1149 ; 
04C3 1150 ; Output of above section of code is put the UNIBUS Virtual Address of the 
04C3 1151; transfer into UCBSW_DY_SBA and the two high order bits of this UNIBUS 
04C 1136 : Virtual Address into UCB$B_DY_xBA. 
04C3 1153; 
ae3 1188 
¢ 1136 : SET CSR BITS IN uces _bY 
bee 1138 ; SET UCB OFFSETS INR “FOR. Use AS POINTERS DURING DEVICE DBR PROTOCALL 
4C3 1159 ° 
FC7C 3 rt 1169 15$: BSBW DY_MERGE :SET GO,IE,UNIT,DEN BITS IN R2 
4C6 1196 ;SET UCB OFFSETS IN R3 
53 €4 8F 9A O04C6 116 MOVZBL #UCBSW_DY_PWC,R3 ASSUME WC OFFSET AS POINTER TO UCB- 
CA 1164 SFIELDS oo. 2ND FUNCTION CODE 
53 53 10 78 O4CA 1165 ASHL #16,R3,R3 [MAKE ROOM FOR SECTOR ADDRESS 
53 BC 8F 90 Q4C 1198 MOVB #UCBSL_MEDIA,R3 S ASSUME DA OFFSET AS POINTER TO UCB- 
re 118 sFIELDS FOR 1ST FUNCTION CODE 
D 1168 
D7? 11 ? 
BS a7 
409 1158 TOR Re 
4DF 117% UCBSL_DY_XFER(RSS te 
OOEA C5 52 02 a9 rt 4 aT B1SW3 a4 af ba HR TS :SET EMPTY BUFFER AS 2ND FUNCTION 
20 «11 aes N77 BRB COMXFER Nagy 
4E7 1198 208: sWRITE FUNCTION 


F 15 
DYORIVER = VAX/VMS RX211/RX02 DISK DRIVER 16-SEP-1984 AX/VMS Macro V04-00 Page 
ae tt START 1/0 ROUTINE Breer oke Sosieios ORI VES. Saeco vbRtvee.mar:1 29 
53 53 10 9C OQ4E7 1180 ROTL #16,R3,R3 sSHIFT ORDER OF UCB OFFSETS FOR WRITE 
00E8 C 00 A AEB 1 BISW3 sf AE ILCBUFFER RQ ~ 3SET FILL BUFFER AS 1ST FUNCTION 
OOEF|A CS «6520 06D GFT 11 BISw3 #F WRITESECTOR,R2,- tASSUME WRITE SECTOR AS 2ND FUNCTION 
at? 1184 UCBSL_DY_XFER+2(R5) a? 
06 €1 O4F7 1185 BBC #10$V-DECDATA,= :1F CLR = NOT WRITE DELETED DATA 
OA O09A C 4F9 11 : UCBSW-FUNC(RSS ,COMXFER :... 
QEA ¢ B4 O04FD 11 CLRW UCBSL“DY_XFER+O(R5) [CLEAR 2ND FUNCTION FIELD 
OOEA CS C¢ a9 0501 11 2 BISW3 #F WRITEDEL,R2,- :SET WRITE DELETED DATA AS 2ND FUNCTION 
; 7 11 UCBSL_DY_XFER+2(R5) Re 
rg 
f 1186 ; COMMON TRANSFER POINT = LOOP POINT FOR INDIVIDUAL SECTOR TRANSFERS 
507 1194 : NOTE: CODE IN THIS LOOP 1S IN-LINE AS MUCH AS POSSIBLE TO DECREASE 
507 1195 : EXECU TION TIM mE IN ORDER THAT THE NEXT INTERLEAVED SECTOR ON THE 
507 1196 : DISKETTE 1S NOT MISSED (WHICH WOULD CAUSE A WAIT FOR AN ENTIRE 
2 i 119 ; DISKETTE hevOLUTIONS 
$07 1138 : INPUTS TO LOOP: 
$307 1201 : R3 = UCB OFFSETS FOR DEVICE DBR PROTOCALL 
9507 1 0¢ ; R4 - DEVICE CSR ADDRESS 
507 1203 : R5 = UCB ADDRESS 
0507 1 04 ; UeBsL _DY_XFER = LOW WORD: FCODE,GO,1E,DENSITY,UNIT FOR 1ST FUNCITON 
507 1205 : - HIGH WORD: FCODE,GO,1E,DENSITY,UNIT FOR 2ND FUNCTION 
B807 1509 
507 1208 COMXFER: ;START TRANSFER LOOP 
sat 
3 , 1" : CALCULATE SKEW AND INTERLEAVE FACTORS 
507 1 i ; IF THE PHYSICAL I/O FLAG IS SET, THE ADDRESS IN UCBSL_DY_LMEDIA 
507 1214 : IS MOVED TO UCBSL_M 
507 1215 : IF LOGICAL 1/0 IS"BEING PERFORMED, THE LOGICAL ADDRESS IN UCBSL_DY -LMEDIA 
507 1 16 : 1S CONVER TeD TO A PHYSICAL DISK ADDRESS BY APPLYING INTERLEAVE AND SKEW 
507 1217 : FACTORS, AND THE FIRST TRACK (RESERVED FOR INDUSTRY COMPATIBLILITY) 
3 , 1 18 : IS SKI TPBEDS THE RESULT IS PLACED IN UCBSL_MEDIA. 
507 1220 ° 
51 58aS 00 0507 1221 MOVL UCBSL_IRP(RS) ,R1 :GET ADDRESS OF REQUEST PACKET 
52. ooBc cS) «4(9E «20508 1 : MOVAB UCBSL“MEDIA(RS).R R? [POINT TO PHYSICAL MEDIA ADDRESS 
62 O0&C (5 OD 10 1 MOVL  UCBS ay SAReDIAtR ),(R2)° sCOPY LOGICAL ADDRESS 
B OC 15 1206 BBS SRP ¥s10. s1F SET = PHYSICAL 1/0 
40 2A Al 17 1225 RPS astsc 1108 
1 62 9A OS1A 1 : MOVZBL 2GET CURRENT LOGICAL SECTOR 
50 51 1 78 0510 1 ASHL 2 RO ; - Current Logical Sector => RO needed 
tom 8 ; in case of QUAD gone ty te compute 
1 91 } | CMPB «#12, R1 Cer ee R aeeTOR er. oj — 
3 { D % ° ADWC Osa, ai ; DOUBL SECTOR #, ADD INTERLEAVE FACTOR 
3100 F 8B 2 § CMP ary QWPS,- 3; See if this is a QUAD density diskette 
CC 1 yeas, DY wPS(RS) 
1 1234 BNEQ ; If NOT, branch around. 
51 C 1235 ADDL _RO_R1 : It QUAD, add in 2*Sector for interleave 
1236 3; factor "of 4. 
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$ 

; MOVZBL 2(R2),RO 3GET Med NUMBER 
Aa #6,RO,R1,RO sCOMPUTE SKEW (6 * CYL + SECTOR) 
MOVZBL UcBse_seCTORS(RS) ,~(SP) sGET SECTORS/TRACK 
EDIV (SP)+,RO,RO,R1 sMODULO SECTOR INTO ye ae PER TRACK 
INCL Ri OFFSET SECTOR NUMBER BY ONE 
MOVB R1,(R2) sSAVE SECTOR NUMBER In’ ucB 
INCB 1tRg) z INCREMENT PAST RESERVED TRA 
CMPB 1(R2) ,UCBSB_TRACKS(R5) ;STILL WITHIN DISK DIMENSION 
BLSS 10$ s1F LSS = YES 
CLRB JtRg} sRESET TRACK ADDRESS 
INCB (R2) ; INCREMENT CYLINDER ADDRESS 


: ! CALCULATE WORD COUNT FOR THIS TRANSFER 


10$: MNEGW UCBSW_BCR(RS 


),- 3GET BYTES LEFT TO TRANSFER AND - 
UCBSW~DY_PWC(RS) sASSUME ONLY ONE TRANSFER NEEDED 
DIvw #2 ,UCBSW_DY DY Puc (RS ) sFORM WORDS LEFT TO TRANSFER 
CMPW =: UCBS$W_DY~PWC(R5) ,- 
BSW_DY “UPS (RS) ; Are additional transfers required? 
BLEQU $ 3 EQU = NO 
MOVW UCBSW_DY_WPS(R5),- 3; Set word count for one sector. 
UCB$W"DY_PWC(R5) ee 
208: INSV ucese DY_XBA(RS),- ;PUT EXTENDED BA IN 1ST FUNCTION<13:12> 
2,#2,UCB$SL_DY_XFER(RS) ;... 
66 MOVB See et _bY_XFER+17R5),- | ;PUT XBA AND HS IN 2ND FUNCTION TOO 
6 UCBSL_DY_XFER+3(R5) Duce 
$8 
19 ; EXECUTE TRANSFER FUNCTION 
ie: : INPUTS: 
oh UCBSL_DY_XFER “Cay oy Shed ee ee eeeee 
7 900-8 a RR IN  p ae  fa a Rie tee 
oi R3 : DBR3 : DBRi 
? s®eeeeeeeeeeeee oa ee o @eeeseoeaeaeeeeeeeene# 
TS FOR mTH LOAD OF DEVICE CSR 
FSET IN UCB FOR nTH LOAD OF DEVICE DBR 


; ; FUNCTIONAL eet 
THE CSR IS LOADED WITH THE LOW WORD OF UCBSL_DY_XFE 
THE BR IS WORD OF WITH THE UCB FIELD SPECIFIED BY THe UCB OFFSET 


IN THE LOW WORD OF R 

THE DBR IS THEN LOADED Ww a" 5 NEXT SEQUENTIAL UCB FIELD. 
AFTER THE INTERRUPT, UCBSL are. AND R35 ARE ROTATED, AND THE 
PROCESS IS REPEATED FOR FUNCTION 


CSR 


MOVB #2, UCBSB_DY_LCT(R5) SET LOOP COUNTER 
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| 
mov UCBSt DY DY_XFER(RS) RY =CS(R4) | ciabtat FUNCTION IN CSR | 
TIMEDWAIT T {ine #19061 000,- ane SE COND WAIT TIMEOUT | 
bry ade tt cs Adon E,RY_CS(R4)>,- ;T/R OR DONE? | 
Ne secBuEe 3255, - ss = ANSFER COMPLETE’ (T/R) 
Sashes DONE BIT SET = ERROR 
- Tf far = NEITHER, WAIT 
DONELBL=32$ 
MOVa = (SP)+,R :RESTOR E RO-R1 | 
BITB #RY_C$_M_TR!RY_CS_M_DONE.RY nEgine) T/R OR DONE? 
BLSS $ TIFTL TRANSFER COMPLETE (T/R) 
BEQL % iF - TIME _HAS, EXPIRED 
BRW RETREG “bir SET = ERRO 
33$: ; RORAAL RETURN 
sLOAD WORD COUNT OR SECTOR ADR IN DBR 
MOVZWL R3,RO 'GET UC 
ADDL —-R5_RO CALCULATE ue FIELD ADDRESS 
MOVw = (RO) + RY _DB(R4) :PUT UC FIELD IN DBR 
mova RO, = (§P SAV 
TIMEDWAIT tinee#100*1000,- ONE SECOND WAIT TIMEOUT 
INS1=<B1TB #RY_CS ATR! RY_CS_M_DONE,RY_CS(R4)>,= ;T/R OR DONE? 
INS2=<BNEQ 3685,-" TIF LSS =" TRANSF FER COMPLETE (T/R) 
HEN NON-ZERO = DONE BIT SET = ERROR 
F EQL = NEITHER, WAIT 
DONELBL=36$ 
mova ss (SP) + ;RESTORE RO-R1 
BITB  #RY_CS$_M_TR!RY_CS_M_DONE.RY_CS(R4) :T/R OR DONE? 
BLSS 7$ SIF"LSS = TRANSFER COMPLETE (T/R) 
BEQL 7$ SIF EQL = TIME HAS EXPIRED 
BRW RETREG :DONE BIT SET - ERROR 
37S: ‘NORMAL RETURN 
canaeal ;LOAD BUS ADR OR CYLINDER ADR IN DBR 
06 64 AS 05 €1 BBC #UCBSV_POWER,UCBSW_STS(R5), 358 -1F CLR = - No POWER FAILURE 
ENBINT 3 ENAB E INTERRUP 
BRW PuR AIL OANDLE POWER F Ale URE 
35$:  MmOVW CRO) RY_DB(R4) [PUT NEXT UCB FIELD IN DBR 
WEIKPCH SPECOND7# ‘WAIT FOR INTERRUPT 
10F ORK ; CREATE FORK PROCESS (8JSB BACK TO ISR) 
ROTL SSETUP UCB FIELDS FOR NEXT FUNCTION 


ROTL rie Regs DY KEER(RS) «= [SET UP NEXT FUNCTION 
UCBSL_DY_RFER(R 


eG gaY CS _Y_ERR.UCBSN_DY_ CS(R5),40$ :IF CLR = NO ERRORS 


BRwW GE~ ; Error - Goto Purge datapath 
40$:  DECB YEBSB_DY_LCT(RS) :DECREMENT Loop COUNTER 

BLEQ © 45$ TIF OL ONE DON'T LOOP AGAIN 

BRW 30$ ‘tbobe FOR ND FUNCTION 


: ; UPDATE BUFFER ADDRESS, DISK ADDRESS, AND BYTES REMAINING FOR NEXT SECTOR 


UPDATE BYTES REMAINING TO TRANSFER 


and the logical cylinder number. 
Unfortunately if we are doing PHYSICAL 1/0 we have one Little 


—~ 
Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge! > 


ee ee ee em ee ed a a ot od = 8 = YS 3 = 3 — 3 2 2 8 3 
| 
oO 


74 glitch in that physical sector numbers are in the range 
75 ) to 26 rather than in the range of 0 to 25. Therefore 
7 the foi loulon code treats the updating of the disk address 
AA slightly differently in the case of LOGICAL and PHYSICAL 1/0. 
52. OOEC C5 9 MOVAB UCBSL_DY_LMEDIA(RS),R2 ; Re => Logical Media Address. 
51 46 AS 1 MOVAB UCBSB-SECTORS(R5).R1 § ; R1 => disk dimensions. 
50 58 a5 ¢ MOVL UCB$L_IRP(RS) ,RO : RO => IRP. 
08 8B #IRPSO_PHYSIO,- ; If SET this IS PHYSICAL 1/0 so 
11 2A A 4 IRP$W_STS(RO) ,60$ ; _branch to special treatment. 
50 0 5 MOVL #2,R0 3 Set loop count for LOGICAL 1/0 case. 
6 § 50$ INCB (Re) 3 Increment sector, track or cyl. # 
81 6 CMPB ss (R22), (R1) + : Test against Limit for field. 
é 3 BLSSU ; LSSU implies NO overflow - so goto OK 
3 CLRB (R2)+ : Overflow, so reset to zero and 
F4 0 SOBGEQ RO 50$ : if GEQ loop to increment next field 
1A 91 BRB 70$ 3: If we overflowed cylinders, branch. 
38 60$: 3: Special PHYSICAL 1/0 case. 
6 9 INCB (R2) 3 Increment sector #. 
81 Be CMPB (R2),(R1)+ 3; Compare to Limit. 
5 BLEQ 8 3; If < or = to 26 - OK so branch. 
82 1 38 MOVE #1,(R2)+ ; If overflow reset to 1 for sectors. 
6 9 INCB (R2) 3; And bump tracks. 
81 6 3 CMPB (R2),(R1)+ 3; Compare to Limit. 
j 9 BLSSU _-« 80 3 < OK so branch out. 
8 4 CLRB (R2)+ 3; Clear overflowed track field and 
6 4 INCB (R2) 3 nerenent cylinders. 
61 8 4 g CMPB (R2),(R1) : Test if we overflowed cylinders. 
E 4 BLSSU «80 : If NOT, branch around to OK. 
404 70$: 3; Here we have qvor’ levee the cylinder 
405 5 tield, but if the XFER is done it 
4 $ 3 doesn’t matter. 
00co C5 4 TSTW UCBSW_BCR(RS) ; Beyond last LBN - is XFER complete? 
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DYDRIVER = VAX/VMS RX211/RX02 DISK DRIVER 16-SEP-1984 00:22: AX/VMS Macro v04-00 Page 
ae tt START 1/0 ROUTINE g- oat 90:92:38 YORIVER. SREIDYDRIVER-MARS 1 . 4; 
50 €4 3¢ 4F 45$: MOVZWL UCBSW_DY_PWC(RS),RO 3GET WORDS TRANSFERRED 
C4 ; MULL #2,R ;FORM BYTES a a bhh 

00co C¢ AO tH ? ADOW RO ,UCBSW_BCR(RS) ;UPDATE NEG BYTES REMAINING TO TRANSFER 
C 5 ;UPDATE BUFFER ADDRESS 

51 peg C 3 § MOVZWL UB ee OY SBA CRS) RI GET ORIGINAL BUFFER ADDRESS IN R1 

51 02 410 OE f F 28 INSV UE BET PV KBACR ),416,42,R1_ ; INSERT EXTENDED BIT 
1 C 8 45 RO,R ; UPDATE BA WITH BYTES TRANSFERRED 
50 (51 1 fF EXT2V #16,82,R1,RO0 'GET NEW MEMORY EXTENSION BITS 
OE3 C 2 ; 6 60 RO,UCB$B_6Y_XBA(RS) SAND SAVE IN UCB 
OE6 C 1 6B 1h VW R1,UCBSW_DY_SBA(R5) 3SAVE BUFFER ADDRESS IN UCB 

th e§ ;UPDATE DISK ADDRESS 
67A 65 ; Here we update the disk address contained in UCBSL_DY_LMEDIA. 
67A $6 3 If we are doing LOGICAL I/0 then we simply add one to 
67A the logical sector number and if the sum of this addition 
67A $8 is EQUAL to the # of sectors on a track (26) we have an 
67A § overflow condition so we zero the logical sector # and bump 
6 0 the logical track #. We do the same for the logical track # 


—" 
| 


| 
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DYORIVER = VAX/VMS RX211/RX02 DISK DRIVER -$ pol AX/VMS Macro v04-00 Pa 
ae ht START 1/0 ROUTINE us 1382 88: ¢: 38 DRIVER. SRCJDYDRIVER.MAR; 1 ™ 
11 3 14 BEQ DY_PURGE : If EQL so branch around. 
50 0134 ef i 149 MOV EWL #SS$_IVADDR,RO [SET INVAL Lib Disk ADDRESS STATUS 
FBSA C2 14 BRW FUNCRT SAND EXIT 
£2 1213 gos: 
00c0 3 C 1418 ; TSTW UCBSW_BCR(RS) ‘i bytes aronelaten tet transfer? 
(3 1414 BEQL DY PURGE F EOL PLETE 
FE 33 ee BE BRW COAXFER ‘ORE byTES REMAINING = CONTINUE 
CE 141 ; 
6CE 141 : END OF “COMXFER:"* LOOP 
ce 14 § ; 
SCE 105% 
6CE 14 : : PURGE DATAPATH 
gee gt 
6CE 1425 DY_PURGE: PURGE DATAPATH 
00000000" ¢F 16 6CE 14 6 JSB G* 1OCSPURGDATAP : PURGE DATAPAT 
Q 34 604 14 aL BS  RO,DY_SAVE ‘IF SET = NO PURGE ERROR 
00EO ¢ 07 14 ’ INCB UCBS$BD¥_ER(RS) 'SET PURGE ERROR 
60B 1430 ; 
6DB 1431 : SAVE UBA REGISTERS FOR REGDUMP ROUTINE 
rt ae 
608 1434 DY_SAVE: :SAVE UBA REGISTERS 
0004 <5 551—s«é#0 1435 MOVL  R1,UCBSL_DY_DPR(RS) SAVE DATAPATH REGISTER 
51 G0E6 CS) «63C «(06E0 «(14 : MOVZWL UCB$W_DY-SBA(RS) ,R1 GET ORIGINAL BUFFER ADDRESS 
S51 02 10 O0€ cs FO 3 14 INSV UCBSB_DY_X XBA(R5) 416,42, ai ekaNseRT,, EXTENDED ADDRESS BITS 
7 a3 At F 14 3 ADDWS UCBS$W_BCNT(RS),- eee Ate BYTES TRANSFERRED 
50 C 1440 UCBSW~BCR(RS) ,RO 
2 3 1441 DIVW #e. RO” ?FORM WORDS TRANSFERRED IN RO 
1 ¢ 1448 ADDL [FORM FINAL BUFFER ADDRESS IN R1 
50 51 F9 BF 144 ASHL ae RI RO ‘SHIFT IN RO FOR FINAL MAP REG NO. 
O1EF E \ 1444 CPW 495, rb LEGA L MAP REGISTER? 
50 OF BF 3C 1446 MOVZWL RO “RESTRICT MAP REGISTER NUMBER 
8 C5 6240 D0 1447 10$:  MOVL nig 1,UCBSL py. FMPR(RS) ;SAVE FINAL MAP REGISTER NUMBER 
00D¢ ‘ D4 071 1468 CLRL UCBSL_ DY’ PMPR(R : CLEAR PREVIOUS MAP REGISTER CONTENTS 
D7 0716 144 DECL =R LCULATE yPREVLOUS MAP REGISTER NUMBER 
OF EC 0718 14 CMPV aVECSV MAPREG AVECSS naphee sANY PREVIOUS MAP REGISTER? 
50 34A - 18 14 : seal CRBSL _intbevecsu -MAPREG(R3) RO 3. 
0opc CS 6208 D0 6 14 ; MOVL tea E S03, UCBSL_DY_ aa. OO AVE PREVEOUS MAP REGISTER 
1455 ; 
, 16 $: > DETERMINE EXIT - SPECIAL CONDITION, FATAL ERROR, RETRIABLE ERROR, OR SUCCESS 
1458 ° 
14 § RETREG: :DETERMINE EXIT 
05 00ce cS OF Eg 726 16 6 BBS any CS_V_ERR YrBsue DY_ cst 28 iF set = DEVICE ERROR 
ocsS € , ¢ 16 - BLBC CBSB_BY-ER(R F éLR URGE ERROR 
731 «14 § ; ASSUME UCB$W_DY_DB EQ ucesy. DY_CS+#2 
OOCE CS DO 0751 1464 MOVL ett DY-CS(RS),= ; Remémbér values before reading 


oh 
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DYDRIVER = VAX/VMS RX211/RX02 DISK DRIVER * =SEP=1984 AX/VMS Macro V04-00 Page 34 | 
aa St START 1/0 ROUTINE §-8 oat 88: ¢¢' 38 DRIVER. SRCJDYDRIVER.MAR; 1 - (1) | 
0104 ¢5 735 1665 UCBSL_DY_SAVECS(RS) : extended sense. 
015d 30 H 14 § BSBw READ_ERROR_REGISTER 3 Read hecduare orcer ate into UCB. | 
14 CKOFL 3 Check if device is ne. 
104 ce dO 14 MOVL UCBSL DY _SAVEES(RS) -< ; Restore eoruee after jah ng | 
C 7 14 UCBSW_DY_CS(R5) 3 extended s | 
ya 785 (14 J$B G*ERLSDEVICERR ALLOCA ATE AND. Fiti ERROR MESSAGE BUFFER 
18 009A ¢ F €0 0788 147 BBS #10$V_INHRETRY ucasi FUNC (RS) ¢0 IF = RETRY INHIBITED 
oF 09 ¢ £0 07 1476 BBS #RY_DB_V_NXM,UCBSW_DY_DB(RS) ,{ -1F SET = NONEXISTENT MEMORY 
3 00D ’ 797 147 BBS #RY-DB-V-CRC,UCBSW_DY_DB(R5) ,5$ if SET = CRC ERROR 
F968 103 BSBW 38s RX2T1_REINIT : Else go try to reset @Xx211. 
7A 1676 
vA 1407 RETRIABLE ERROR EXIT 
7A 1258 ‘ 
FAGA 31 ZA 16 6 5$: BRW RETRYERR gRETRY EXIT 
7A3 14 ¢? 
oA 1 ? : SUCCESSFUL OPERATION EXIT 
7Aa3 1485 ° 
FA30 31 ra 16 : 10$: ®BRW NORMAL sSUCCESSFUL EXIT 
7A6 1488 ; 
7A6 14 ° ; FATAL ERROR EXIT 
7A6 1491 * 
76 149¢ 15$: :NXM ERROR = INIT TO CLEAR 
4473 3 7A6 149 BSBW RX211_REINIT 3: Execute RX211 initialize 
FAS 1 ray 14694 20$: BRW FATALERR SFATAL ERROR EXIT 
7AC 1696 
ZAC 1698 5 SPECIAL CONDITION EXIT (POWER FAILURE OR DEVICE TIMEOUT) 
7AC 1499 * 
7AC 1300 SPE COND 
05 £0 O7AC 1501 #UCBSV_POWER,- s1F SET = POWER FAILURE 
32 66 A 7AE 1 : CBSW_STS(R5S,PWREAIL :IF CLR = DEVICE TIMEOUT 
00000080" ¢F 16 0781 1 “ERLSDEVICTMO :LOG DEVICE TIMEOUT 
787 1504 SETIPL UCBSB_FIPL (RS) SLOWER TO FORK LEVEL 
F94D 0 0788 1505 BSBW RX211_REINIT : Execute RX211 initialize. 
50 923¢ C BF ¢ 7B 1 MOVZWL #SS$_ TIMEOUT RO SSET DEVICE TIMEOUT STATUS 
0 ¢5 7c3_ (1 ECB  UCBSB_ERTCNT(RS) ZANY ERROR RETRIES REMAINING? 
13 4s 1 8 BEQL RESETRER lf EQL = NO 
64 AS 0040 BF AA s«*O79 «1 BICW #UCBSM TmoyT, ucasu. STS(RS) ;CLEAR TIMEOUT STATUS 
53 58 AS p0 7CF 1 10 VL  UCBSL_TRP(R5).R sRESTORE IRP ADDRESS 
FATC 205 BRW FEXL SRETURN 
708 1 ig RESETXFR: :RESET TRANSFER BYTE COUNT 
53 58 rH} DO 0706 1514 MO UCBSL_IRP(RS) ,R3 GET ADDRESS OF 1/0 PACKET 
00c0 ¢ A Af 7DA 1515 MNEGW  IRPSW~BCNT(R35 ,UCBSW_BCR(RS) ;RESET BYTE COUNT 
FASC = 31 «O7EO 1 16 BR FUNCXT = 
FY HE ovnran nr 
20 aA O7E3 151 BICW 
O6 Mo2 5 83 767 1 30 TSTW ycasu, BY_DPN{R RESOURCES ALLOCATED? 
7&8 1 BEQL ; NO 
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= VAX/VMS RX211/RX02 DISK DRIVER 16=SEP=1984 00:22: AX/VMS Macro V04-00 Page 
INYERRUPT SERVICE ROUTINE §-8 ets 83:92:38 DRIVER. SRCJDYDRIVER.MAR; 1 . i, 
1530 SBTTL INTERRUPT SERVICE ROUTINE | 
; DY_INT = RX211 INTERRUPT SERVICE ROUTINE 
1334 ; FUNCTIONAL DESCRIPTION: | 
1 4 : THIS ROUTINE IS ENTERED VIA_A JSB INSTRUCTION WHEN AN INTERRUPT 
1537 ; OCCURS ON AN RX211 DISK CONTROLLER. IF THE INTERRUPT IS NOT EXPECTED, 
1 § ; THE UNSOLICITED INTERRUPT ROUTINE DISMISSES THE INTERRUPT. IF 
1539 ; THE INTERRUPT IS EXPECTED, DEVICE REGISTERS ARE SAVED AND THE 
1540 : DRIVER IS CALLED AT ITS INTERRUPT RETURN ADDRESS. THE DRIVER FORKS, 
1541 : CAUSING A RETURN TO THIS ROUTINE, WHICH RESTORES GENERAL REGISTERS 
4 ; AND DISMISSES THE INTERRUPT, 
44 > INPUTS: 
1346 ; O(SP) = POINTER TO ADDRESS OF THE IDB 
1547 : 4(SP) = SAVED RO 
1 48 ; (SP) - SAVED R1 
1549 : 12(SP) = SAVED Re 
1 30 F 16¢8P) - SAVED R 
1551 : (SP) = SAVED R4 
808 1 3g ; 4(SP) = SAVED R5 
08 13 ; 8(SP) = PC AT THE TIME OF THE INTERRUPT 
08 34 ; 2(SP) = PSL AT THE TIME OF THE INTERRUPT 
08 1386 : OUTPUTS: 
1 58 : DEVICE REGISTERS ARE SAVED, IPL IS LOWERED TO FORK LEVEL, THE 
1 9 ; INTERRUPT IS DISMISSED, ALL REGISTERS EXCEPT RO-R5 ARE PRESERVED. 
1561 
a8 1 ¢ DY_INT:: sINTERRUPT SERVICE ROUTINE 
D0 156 VL  a(SP)+,R3 SREMOVE ADDRESS OF IDB FROM STACK 
OE 1564 ASSUME IDBS$L_CSR 
oe 1565 ASSUME 1DBSL OWNER EQ 4 
7D 1 og mova —s- (R3) JR :GET ADDRESS OF CSR AND UCB 
0 1 156 TSTL R5 ; Make sure we have OWNER. 
1 13 (1 $8 BEQL DY_UNSOLNT ; EQL implies RX controller has NO owner. 
§ 15 1 : MOVW  RY“CS(R4) ,.UCBSW_DY_CS(R5S ;SAVE CONTROL STATUS REGISTER 
A O81A 1 9 MOVZBL #F ~READSECTOR/2-R3 get READ SECTOR FUNCTION CODE 
E 1D 157 CMPZV #17#3,UCBSL_DY_XFER(RS).R3_ ;WAS THIS A READ SECTOR FUNCTION? 
4 1 2 BNEQ § -1F NEQ - NO, SAVE ORIGINAL DELD BIT 
e 6 a3 mov RY .DB(R4) ,UCBSW_DY_DB(RS) ;SAVE DATA BUFFER REGISTER 
AA 1575 108: BICW #*C<RY_DB_M DELD>. = SSAVE DELETED DATA BIT NOW IN UCB 
1 16 ucesw_ By _batr 7 
ns 157 BICW3 #RY DB_M“DELD,RY_DB(R4),R3 :GET ALL BUT DELD BIT FROM DBR 
A ‘ 1 28 ISW R3,0CBSW~DY_DB(RS) sSAVE DATA BUFFER REGIST 
AA 084 79 208: BICW ahi CS AATIETRY CSW. GO!~ SDISABLE FURTHER INTERRUPTS 
ES 6 1 ? BBCC sucesd INT,-. 7 SIF CLR = INTERRUPT NOT EXPECTED 
48 UCBSW_STS(RS),DY_UNSOLNT ;... 
7> 0848 mova ucest FR3(R5),R3 SRESTORE DRIVER CONTEXT 
16 ‘f 5 JSB @UCBSC_FPC (RSS [CALL DRIVER AT INTERRUPT RETURN ADDRESS 
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7 DY_UNSOLNT: 
POPR #*M<RO,R1,R2,R3,R4,R5> 


;UNSO four : » uoamagis 
:REST RE R 
sRETURN FROM INTERRUPT 
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OUTIN ~SEP-19 DRIVER. SRCIDYDRIVER. 
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«SBTTL REGISTER DUMP ROUTINE 


DY_REGDUMP = REGISTER DUMP ROUTINE 
FUNCTIONAL DESCRIPTION: 


Go00 Co Co Cd CO CD COCO CDCR OCDCUCDORCROROCDCDCD Mma 


/VM 1 
TER R 
1 
1 $3 3+ 
1595 ; 
1594 ; 
1595 ; 
1399 
5 1 4 3; THIS ROUTINE IS CALLED TO SAVE THE DEVICE REGISTERS AND USA RESOURCE 
5 1599 ; REGISTERS IN A SPECIFIED BUFFER. IT IS CALLED FROM THE DEVICE ERROR 
: 1 ? 3 LOGGING ROUTINE AND FROM THE DIAGNOSTIC BUFFER FILL ROUTINE. 
? 19 ¢ 3: INPUTS: 
1 ; 
5 1OR8 $ RO - ADDRESS OF REGISTER SAVE BUFFER 
0 22 1605 ; RG - ADDRESS OF DEVICE CONTROL STATUS REGISTER (CSR) 
085 1986 5 R5 = ADDRESS OF UNIT CONTROL BLOCK (UCB) 
0 22 1607 ; UCB$B_DY_ER = SPECIAL ERRORS: BIT 0 = DATAPATH PURGE ERROR 
085 1608 ; BIT 1 = RX211 SWITCH SET FOR RXO1 
8 55 1609 ; 
55 1610 ; OUTPUTS: 
0855 1611; 
0855 1ol¢ ; THE DEVICE AND UBA REGISTERS ARE SAVED IN THE SPECIFIED BUFFER. 
0855 161 : RO CONTAINS THE ADDRESS OF THE NEXT EMPTY LONGWORD IN THE BUFFER. 
0855 614; ALL REGISTERS EXCEPT R1 AND R2 ARE PRESERVED. 
0855 1615; 
0855 1918 -- 
0855 161 
Bees 1618 DY_REGDUMP: sREGISTER DUMP ROUTINE 
80 09 DO 0855 1619 MOVL #<RY_NUM_REGS+7>,(RO)*+ ; Insert number of registers. 

51 OOCE C5 —€ 0858 1620 MOVAL UCBSQ_DY CS(R5),R1 3GET ADDRESS OF SAVED DEVICE REGISTERS 
80 81 C 085D 1621 MOVZWL (R1)+7(RO)+ DUMP DEVICE CONTROL STATUS REGISTER 
80 81 C p56 16 ; MOVZWL (R1)+,(RO)+ sDUMP DEVICE DATA BUFFER REGISTER 
8° 81 C 86 16 MOVZWL (R1)+,(RO)+ ; DUMP u 
§ 81 DO 0866 1624 OVL (R1)+,<RO)+ DUMP DATAPATH REGISTER 
80 81 DO 0869 1625 MOVL (R1)+,(RO)+ ; DUMP P STER 
80 = 81 DO O86C 1626 OVL (R1)+,(RO)+ ;DUMP PREVIOUS MAP REGISTER 
80 81 9A O86F 1627 MOVZBL (R1)+,(RO)+ ;DUMP SPECIAL ERROR REGISTER 

8 1628 ASSUME RY_EXTENDED_STATUS_LENGTH EQ 
80 O0FO CS 7D 0872 1629 MOVQ UCB$Q_DY_EXTENDED_STATUS(RS5) , (RO)+ ; Copy ERROR REGISTER data. 
05 0877 16 RSB :RETURN 


i 
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GI 
¢ -SBTTL READ _ERROR_REGISTER = Subroutine to read hardware error data 
4 
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READ_ERROR_REGISTER = subroutine called after a hardware error condition and 
used to issue the READ ERROR REGISTER command. 


The Read Error Register command performs a DMA transfer of 4 words (8 bytes) 
of hardware error status. In order to accomplish our task here we must: 


1. Save CRB and UCB fields moving to do with the data transfer 1/0 
operation in progress. These fields are: 


a) CRBSL_INTD+VECSW porns - the first UBA map register used 
o map the I/0 buffer in Unibus virtual space. 
b) CRBSL_INTD+VECSB_NUMREG = the number UBA map registers 
a eT allocated to map the 1/0 buffer. 
c) CRBSL_INTD+VECSB_DATAPATH = the UBA datapath being used for 
he transfer in progress. 
d) UCBSL_SVAPTE, UCBSW_BOFF, and UCBS$W_BCNT. 


2. Load a zero into CRBSL_INTD+VECS$B_DATAPATH since the DMA transfer 
of 8 bytes can easily make use of the direct datapath. 


3. Load UCBSL_SVAPTE with the system virtual address of the page table 
entry which maps the UCBSO_DY_EXTENDED_STATUS field, the field 
into which we will do the BMA transfer of the 8 bytes. 

4. Load UCBSW_BOFF with the offset in its page of UCBSQ_DY_EXTENDED_STATUS. 


: 5. Load UCB$W_BCNT with the Length of UCBS$Q_DY_EXTENDED_STATUS (8 bytes). 


SNS 
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6 

6 

6 6. Once the above fields (steps 2-6) are loaded we can make use of 
system routines to: 

66 a) REQMPR - request UBA nee ceqreters to map 

65 UCBSQ_DY_EXTENDED_STATUS. 
66 b) LOADUBA - Toad the allocated map registers with the . 
68 appropriate data to realize the mapping. 

67 7. Calculate the Unibus virtual address of UCBS$Q_DY Eyyenece STATUS 
67 and produce the values to insert into the RX211 (RX4T1) 

67 registers, according to protocol, to effect the Read Error 
of Register command. 

of 8. Execute the command. 

of 9. Release UBA map registers and restore CRB and UCB fields. 

6 10. If no TIMEOUT or POWERFAIL occurred, return to caller, else branch 
6 to SPECOND. 

eK 

6 INPUTS: 

684 R4 => CSR 

° 5 RS => UCB 

687 ; OUTPUTS: 

688 Error Register data in UCBSQ_DY_EXTENDED_STATUS. 
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voe- 000 READ R_ STER = SBroutine to read 873 p “SEP 7138 86; 4% 38 DRIVER.S REID DYDRIVER.MAR; 1 ee (1) 
; Registers RO, R1 and R2 are modified. 


READ_ERROR_REGISTER: 
POPL UCBSL_DPC (RS) ; Save caller's return address. 


ASSUME VECSW_MAPREG+2 EQ VECSB_NUMREG 
aoe fy vEC$B_ “CRB CRS) +1 EQ VECSB_ woot y 


009C C5 8EDO 


Co GD: OOo IIIS 02S 
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50 4 AS UCBSL-CR RO RO => CRB. 
4 ag dO MOVL CRBSL_ INTD+ Reetsa POnagecno). - ; Save re NUMREG, and 
0100 ¢ UCBSL-DY_MAPREGTMP(RS) : DATAPATH of current operation 
37 AO 94 CLRB CRBSL_INTD+VECS$B_ DATAPATH(RO) : Insure direct path for READERROR 
ASSUME UCBSL =Borr ee EQ UCBSW_BOFF 
ASSUME UCBSW_ EQ UCBSwW- _BCNT 
78 AS) 7D mMOva UCBS$L_SVAPTE(RS) ,- 3; Save contents of UCBSL_SVAPTE, 
OOF8 C5 UCBS$Q- DY. SVAPTETMP(RS) ; UCBSW_BOFF, and UCBSW_ _BCNT. 


: Upto here we have saved all relevent data from the CRB and UCB. Now we 
doctor up those fields in the CRB and UCB in order to: 


Ve seat * _ ma registers to map the 4 word field 
in the UCB which will serve as the target of the 
READ ERROR REGISTER command. 


2. Load these UBA map registers with the UBA Virtual Address 
of this target area. 


G0 GD Cd Cd Cd Cd CD Gd Co Cd C9 Cd Gd CD CD CO COCO CDCR COCDCUCDCDOCDCSOCNCDOCDCD =< 
wowoowowowowowuowowvovono Co C0CO 
Se Ge Se Se Se Be Ge Ge Ge 


oO 
|x 
COOOCOCOCOCOOOOOOOOOCOOOCOCOOOOOOOOO OOOO OOOOOOOSOOOoOO mG. 
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s INDIRECT MOV. eeeeerereere 


890 0 
08 860 9 MOVW #RY_EXTENDED_STATUS_LENGTH,- ; Put length of target area so 
7E AS 9 UCBSW_BCNT(R5) 3 to allocate correct number 
Soe ? ; of UBA map registers. 
50 OOFO C5 9E 0894 2 MOVA UCBSQ_DY xteece A ieee RO ; RO => target area. 
50 FEOO 8F AB 0899 BICW #*xFEO0,RO, W_BOFF ; Put offset in page of target. 
50 15 09 EF ; EXTZV S*#VA$V_ VPNLS CeaVASS YPN 20. RO ; RO = VPN of target's page in 
3 «system space. 
000000'GF D0 MOVL G“MMGSGL_SPTBASE ,R1 ; R1 => base of SO page table. 
AS 6140 ODE . MOVAL (R1)CROJSUCBSL “SWAPTE (RS) 3 NOT SURE IF THIS SHOULDN'T BE 
1 
1 4 REQMPR ; Request map registers. 
7 LOADUBA ; Load map registers with proper 
4 ; contents to map the target. 
D : 
D 3; Now we calculate the UBA virtual address of the target so as to be able to 
. rt 3 issue the proper device command. 
) F8g2 3 4¢ : BSBW © DY_MERGE ; Merge GO BIT, IE, etc into R2. 
52 —E A i tz BISW #F ~READERROR ,R2 3 n the command. 
24 aS 00 08C 45 MOVL UCBSL_CRB(R5S),R1 ; RI => CRB. 
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ibaa ht READ_ERROR_REGISTER = Subroutine to read ~$Fb =} 382 $0: 42:38 YORIVER. SREIDYDRIVER-MAR: 1 si (1) 
50 7C aS 3C 34 1768 MOVZWL UCBSW_BOFF (RS) ,RO 3; RO = page offset of target. 
34 Al FO cB 1708 INSV | halite attain. 3; Place low order 7 i qf map 
07 09 cf 174 #9,847,R0 3; reg number inte R re vi ng 
D Wf 0 ; low order 16 bits 
4 i 1 ; virtual address of lorenil 
02. O7 EF jel : EXTZV #7,#2,- : Get high order 2 bits of map 
51 34 Al D4 1736 CROSL’ INTD+VECSW_MAPREG(RT),R1 : register number. 
O¢ 51 FO 0807 1755 INSV R1,#RY_CS_V_XBA,= 3 Or in the high order two bits 
2 02 aA 1238 RY ese $_RBA,R2 : of the UBA virtual address. 
64 52 480 se 1738 MOVW R2,RY_CS(R4) ; Move command to hardware reg. 
7E 50 7D O8DF 1760 sony VE RO-R1 
st 1761 TIREDWAIT "FiNE=#10061000, © ; ONE eee WAIT TIMEOUT 
8E 1706 Y_CSs ATH LS CS_M A | RY_CS(R4)>,=- ;T/R OR DONE? 
O8E2 176 Ng2= <BNEO 587 - 1 F us ss ="TRANSFER COMPLETE (T/R) 
O8E2 1764 iI SeeTERO” - DONE BIT SET = ERROR 
OBE2 1765 - Tt Fol - NEITHER, WAIT 
43 1766 DONELBL® 5$ 
50 8€ 7D O90A 1767 mova (SP)+ ;RESTORE RO-R1 
64 AO 8F 93 090D 1768 BITB #RY reg M_TR!IRY_CS_M_DONE,RY_CS(R4) ;T/R OR DONE? 
064 19 0911 179? BLSS § sIF-LSS = T eres COMPLETE (T/R) 
02 13 0913 1770 BEQL sIF EQL = TIME HAS EXPIRED 
26 11 #0915 1771 BRB $s ;DONE BIT AR, ER 
0917 1776 6$: sNORMAL RETURN 
Sr th 
0917 1775 : Now we load the UBA virtual address into the hardware DB register and wait 
0917 1076 : for the interrupt to occur. 
0917 1777; 
a ree 
05 64 AS 05 €1 bai8 1739 Pee ae #UCBSV_POWER, ,UCBSW_STS(R5),10$ ; If clear, then proceed. 
eS 6938 178 BRB 30$ : Branch around if POWERFAIL. 
BF IEE tos 
02 A4 «450 B80 0927 1785 MOVW RO,RY_DB(R4) ; Load register according to 
> ; Ve $ 3 protocol for command. 
09 17 8 WFIKPCH 30$,#2 ; Wait for interrupt. 
9 17 10F ORK 
06 = «172 ; 4 1730 208: 30$ : Branch around timeout re-entry. 
64 AS 0060 BF AB 95 1798 acd BISW  #UCBSM_TIMOUT,UCBSW_STS(RS) : Set timeout flag. 
943 1794 ° — SETIPL UCBSB_FIPL(RS) : Lower IPL in case TIMEOUT. 
3e7 1798 
947 1799 > Now we deallocate the Unibus map register we allocated above to map the 
947 1798; target area and then we restore the UCB and CRB fields to their 
947 1799 ; original values. 
sr a 
947 1802 RELMPR 
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y0e= 000 READ_ERROR_REGISTER = Subroutine to read 873 Pa} 984 88: ¢: 38 DRIVER. SRCIDYDRIVER.MAR; 1 . (1) 
94D 1803 
OOF8 C 7D Q94D 1804 MOVa UCB$Q_DY ene - 3; Restore UCBSL_SVAPTE, 
78 A 22 1805 UCBSL_ Svar TE (RD 3 CBSw BOFF and UCBS$W_BCNT. 
50 24 A 44 1 $ MOVL UCBSL-CRB(RS) 3 > TR 
0100 ¢ D 1 MOVL UCBSL_DY_MAPRE iy 3 Restore PRE, NUMREG and 
4 A0 3 8 | : CRBSL—INTD+VECSW MMAPREG(RO) : DATAPATH. 
0060 8F B83 O95D 1 9 BITwW #UCBSA gf HOYT UCBs. POWER,- ; See if we ned a POWERFAIL 
64 A 961 181 press T : _or a TIMEOUT. 
0 13 0963 1 \¢ BEQL $ : EQL implies NO = so bra 
FEG4 e311 a } 17 408 BRW SPECOND ; Branch” out if POWER or =r fmeour. 
009¢ D5 «17 36 1815 SMP @UCBSL_DPC(RS) Return to caller 
4: ! 16 DY_END: eno ;ADDRESS- ‘OF LAST LOCATION. iN DRIVER 
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DRIVER.S (1) 
LCL oat NOEXE NORD NOWRT NOVEC BYTE 
LCL NOSHR EXE RD WRT NOVEC BYTE 
LCL NOSHR EXE RD WRT NOVEC BYTE 
LCL NOSHR EXE RD WRT NOVEC LONG 
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oanelt fecre Run Statistics DRIVER. SRE REID DYDRIVER.MAR; 1 


ef ss :00:04.3 :13. 
ate table output 1 :00:00.1 :00. 
Psect synopsis output :00: 8 :00. 
Cross-reference output ° :00:00. 
Assembler run totals 112 46 7:01:56. 


The york ing 5{ $00 pas was 4409 pages 
532 oytes pages) o rtual memory were used 4 buffer x intermediate gode. 
ches were 120 pages of syabet § table 1 8ace vcing. 28 ob hold 3232 non-local ne 6 local symbols. 
1817 source 120 pe were read in Pass 1, producin object records. n Pass 2. 
pages of virtual memory were — to define 9 macros. 


poate sneosmananeanan coos ecanwa $ 


! ; Macro Library Statistics H 


Macro Library name Macros defined 

-5255SDUA SYS.OBJJLI8.MLB; 1 34 
$25580UA28. SYSLIBJSTARLET.MLB; 2 10 

TOTALS (all libraries) 44 


2470 GETS were required to define 44 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DYDRIVER/OBJ=OBJ$:DYDRIVER MSRC$:DYDRIVER/UPDATE=(ENHS$:DYDRIVER) +EXECMLS/LIB 
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